﻿Imports Tom0014
Imports Tom0014TableAdapters
Partial Class Registro_detalles
    Inherits System.Web.UI.Page
    Dim cat As New catalogo_generalTableAdapter
    Public iAnimal As New Integer

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim sCarpetaImg As String = "~/photos/Galeria/"
        Dim padre, madre, abuelo As animalDataTable

        Cleanup()
        Try
            iAnimal = Request.QueryString("animal")
        Catch ex As Exception
            iAnimal = 0
        End Try

        If Not iAnimal = 0 Then
            Dim Animal As New animalDataTable
            Dim AnimalAdap As New animalTableAdapter

            Animal = AnimalAdap.GetAnimalById(iAnimal)
            If Animal.Count > 0 Then

                madre = AnimalAdap.GetAnimalBySNLA("V", Animal(0).no_madre, Animal(0).ltra_madre, Animal(0).ano_madre)
                padre = AnimalAdap.GetAnimalBySNLA("T", Animal(0).no_padre, Animal(0).ltra_padre, Animal(0).ano_padre)


                ' -- TITULO --
                lblClaveAnimal.Text = Animal(0).claveSNLA
                lblNombreTitulo.Text = Animal(0).nombre
                lblAnimalId.Text = Animal(0).AnimalId
                ' --- Linea 1 ---
                lblHierro.Text = cat.GetNormalizacion("H", Animal(0).hierro)
                If Animal(0).sexo = "T" Then
                    lblSexo.Text = "TORO"
                Else
                    lblSexo.Text = "VACA"
                End If
                Try
                    lblFechaNac.Text = Animal(0).fechanac
                Catch ex As Exception
                    lblFechaNac.Text = ""
                End Try
                lblNumero.Text = Animal(0).numero.ToString
                lblLetra.Text = Animal(0).letra
                lblAno.Text = Animal(0).ano.ToString
                lblNombre.Text = Animal(0).nombre
                lblTientaAC.Text = Animal(0).tienta_ac
                lblTientaAP.Text = Animal(0).tienta_ap
                lblLidiaAC.Text = Animal(0).lidia_ac
                lblLidiaAP.Text = Animal(0).lidia_ap
                lblPorcienCS.Text = Animal(0).porcien_cs.ToString
                ' --- Linea 2 ----
                lblNo_Padre.Text = Animal(0).no_padre.ToString
                lblLtra_Padre.Text = Animal(0).ltra_padre
                lblAno_Padre.Text = Animal(0).ano_padre.ToString
                If padre.Count > 0 Then
                    lblNombre_Padre.Text = padre(0).nombre
                    lblTientaAC_Padre.Text = padre(0).tienta_ac
                    lblTientaAP_Padre.Text = padre(0).tienta_ap
                    lblLidiaAC_Padre.Text = padre(0).lidia_ac
                    lblLidiaAP_Padre.Text = padre(0).lidia_ap
                    lblPorcienCS_Padre.Text = padre(0).porcien_cs.ToString
                Else
                    lblNombre_Padre.Text = "DESCONOCIDO"
                    lblTientaAC_Padre.Text = ""
                    lblTientaAP_Padre.Text = ""
                    lblLidiaAC_Padre.Text = ""
                    lblLidiaAP_Padre.Text = ""
                    lblPorcienCS_Padre.Text = ""
                End If
                ' --- Linea 3 ---
                lblNo_Madre.Text = Animal(0).no_madre.ToString
                lblLtra_Madre.Text = Animal(0).ltra_madre
                lblAno_Madre.Text = Animal(0).ano_madre.ToString
                If madre.Count > 0 Then
                    lblNombre_Madre.Text = madre(0).nombre
                    lblTientaAC_Madre.Text = madre(0).tienta_ac
                    lblTientaAP_Madre.Text = madre(0).tienta_ap
                    lblLidiaAC_Madre.Text = madre(0).lidia_ac
                    lblLidiaAP_Madre.Text = madre(0).lidia_ap
                    lblPorcienCS_Madre.Text = madre(0).porcien_cs.ToString
                    abuelo = AnimalAdap.GetAnimalBySNLA("T", madre(0).no_padre, madre(0).ltra_padre, madre(0).ano_padre)
                    If abuelo.Count > 0 Then lblNombreAbuelo.Text = abuelo(0).nombre
                Else
                    lblNombre_Madre.Text = "DESCONOCIDO"
                    lblTientaAC_Madre.Text = ""
                    lblTientaAP_Madre.Text = ""
                    lblLidiaAC_Madre.Text = ""
                    lblLidiaAP_Madre.Text = ""
                    lblPorcienCS_Madre.Text = ""
                End If
                lblAbueloMat.Text = Animal(0).abuelo_mat
                Dim sEdad As New Double
                Dim Muerte As New DateTime
                Try
                    Muerte = Animal(0).fechabaja
                Catch ex As Exception
                    Muerte = Date.Today
                End Try
                sEdad = CDbl(Format(DateDiff(DateInterval.Month, Animal(0).fechanac, Muerte) / 12, "#.0"))
                lblEdad.Text = sEdad.ToString

                Dim crias As New GenealogiaDataTable
                Dim criasAdap As New GenealogiaTableAdapter

                crias = criasAdap.GetCriasByAnimalId(iAnimal)
                Dim hijos = crias.Select("Sexo='T'")
                Dim hijas = crias.Select("Sexo='V'")
                lblHijos.Text = hijos.Length.ToString
                lblHijas.Text = hijas.Length.ToString

                If Animal(0).IspropiedadNull() Then
                    lblPropiedad.Text = ""
                Else
                    lblPropiedad.Text = cat.GetNormalizacion("P", Animal(0).propiedad)
                End If

                If Animal(0).IsubicacionNull() Then
                    lblUbicacion.Text = ""
                Else
                    lblUbicacion.Text = cat.GetNormalizacion("U", Animal(0).ubicacion)
                End If
                If Animal(0).IsencasteNull() Then
                    lblEncaste.Text = ""
                Else
                    lblEncaste.Text = cat.GetNormalizacion("E", Animal(0).encaste)
                End If
                If Animal(0).Ispelaje1Null() Then
                    lblPelaje.Text = ""
                Else
                    lblPelaje.Text = cat.GetNormalizacion("W", Animal(0).pelaje1)
                End If

                If Animal(0).Ispiton_formaNull() Then
                    lblPiton.Text = ""
                Else
                    lblPiton.Text = cat.GetNormalizacion("C", Animal(0).piton_forma)
                End If

                Try
                    lblFechaBaja.Text = Animal(0).fechabaja
                Catch ex As Exception
                    lblFechaBaja.Text = ""
                End Try
                lblEstatus.Text = cat.GetNormalizacion("S", Animal(0).estatus)
                ' HACK BUG: Modificar el llamado de la fotografia, ver la foto predeterminada
                If Animal(0).photo Then
                    Dim AnimalFoto As New FotosDataTable
                    Dim _AnimalFoto As New FotosTableAdapter
                    AnimalFoto = _AnimalFoto.GetFotoByAnimal(iAnimal)
                    If AnimalFoto.Count = 1 Then ' si existe foto predeterminada la presento
                        imgFoto.ImageUrl = sCarpetaImg & AnimalFoto(0).NombreArchivo
                    Else
                        imgFoto.ImageUrl = sCarpetaImg & Animal(0).AnimalId.ToString & "_1.jpg" ' Asigno la primera foto
                    End If
                End If
                txtComentario.Text = Animal(0).cometario
            Else
                Cleanup()
            End If


        End If
    End Sub

    Protected Sub Cleanup()
        ' ****** Limpia las etiquetas ******
        For Each Control In form1.Controls
            If TypeOf Control Is Label Then
                Control.Text = ""
            End If
        Next
    End Sub



   
End Class
